Pascal Super Library/Pascal Super Library (CW International)(1997).bin/LIBRARY/CMPLTPAS/GSAVE.PAS

Pascal/Delphi Source File | 1988-07-24 | 478b | 22 lines

{<<<< GSave >>>>}
{ From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
{ Scott, Foresman & Co. 1988  ISBN 0-673-38355-5 }
{ Described in section 19.10 -- Last mod 12/5/87 }

PROCEDURE GSave(GName : String80; VAR IOR : Integer);

TYPE
  ScreenBuff = ARRAY[0..16383] OF Byte;

VAR
  GBuff : ScreenBuff ABSOLUTE $B800 : 0;
  GFile : File;

BEGIN
  Assign(GFile,GName);
  Rewrite(GFile,16384);
  BlockWrite(GFile,GBuff,1);
  IOR := IOResult;
  Close(GFile)
END;